home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / r / real_3d / real3dv3.3b.dms / real3dv3.3b.adf / s.LZH / s / rpl-startup < prev   
Text File  |  1995-08-01  |  10KB  |  254 lines
  1.  
  2. ( REAL 3D RPL STARTUP FILE )
  3. ( Version 1.5        © 20.03.1993 by Axel Mertes )
  4. ( Modified version      6.06.1993 by Realsoft )
  5. ( Modified version     10.12.1993 by Günter Hagedorn )
  6. ( Modified version     28.12.1993 by Realsoft )
  7. ( Modified version     20.6.1993 by Realsoft )
  8.  
  9. ( For backward compatibility:
  10. : ! STORE ;
  11. : @ FETCH ;
  12. : F! FSTORE ;
  13. : F@ FFETCH ;
  14. : W! WSTORE ;
  15. : W@ WFETCH ;
  16. : B@ BFETCH ;
  17. : V@ VFETCH ;
  18. : V! VSTORE ;
  19.  
  20. ( NORMAL KEYS `a`...`z` )
  21.  
  22. "r3d3:rpl/sys/editor.rpl" LOAD
  23. ( "r3d3:rpl/framecmd.rpl" LOAD
  24. ( "r3d3:rpl/methods.rpl" LOAD
  25.  
  26.  
  27. VARIABLE iTOG_PARPER 0 iTOG_PARPER ! ( TOGgle PARallel/PERspective )
  28.  
  29. : KEY_* ( * = toggle parallel/perspective projection )
  30.    1 iTOG_PARPER @ - iTOG_PARPER !
  31.    3  0  iTOG_PARPER @  MENU  0
  32. ;
  33.  
  34. VARIABLE iTOG_ACCBOX 0 iTOG_ACCBOX ! ( TOGgle ACCurate/bounding BOX )
  35.  
  36. : KEY_/ ( / = toggle accurate/bounding box wire)
  37.    1 iTOG_ACCBOX @ - iTOG_ACCBOX !
  38.    2 14  iTOG_ACCBOX @  MENU  0
  39. ;
  40.  
  41. ( NORMAL KEYS `a`...`z` )
  42.  
  43. : KEY_a  2  2  5 MENU 0 ; ( change animation          modify/properties/animation
  44. : KEY_b  4  3  6 MENU 0 ; ( step backwards            animate/control/step_backwards
  45. : KEY_c  2  2  0 MENU 0 ; ( change colour             modify/properties/colour 
  46. : KEY_d  2  0 10 MENU 0 ; ( deform object             modify/linear/deform
  47. : KEY_e  2  0  8 MENU 0 ; ( shEar object              modify/linear/shear
  48. : KEY_f  4  3  5 MENU 0 ; ( step forward              animate/control/step_forwards
  49. : KEY_g  1  2  2 MENU 0 ; ( create group              create/structure/group
  50. : KEY_h  1  2  3 MENU 0 ; ( create metHod level       create/structure/method
  51. : KEY_i  2  2  2 MENU 0 ; ( Info about attributes     modify/properties/attributes
  52. : KEY_j  2  0  1 MENU 0 ; ( move cog = Jump           modify/linear/move COG
  53. : KEY_k  1  2  1 MENU 0 ; ( create linK               create/structure/link
  54. : KEY_l  1  2  0 MENU 0 ; ( create Level object       create/structure/level
  55. : KEY_m  2  0  0 MENU 0 ; ( move                      modify/linear/move
  56. : KEY_n  2  2  1 MENU 0 ; ( change name               modify/properties/name
  57. : KEY_o  2  0  7 MENU 0 ; ( Opposite position         modify/linear/mirrOr
  58. : KEY_p  1  3  0 MENU 0 ; ( create point lightsource  create/light/point
  59. : KEY_q  2  0  9 MENU 0 ; ( rotate and extend         modify/linear/rot&ext
  60. : KEY_r  2  0  6 MENU 0 ; ( rotate                    modify/linear/rotate
  61. : KEY_s  2  0  4 MENU 0 ; ( stretch                   modify/linear/strech
  62. : KEY_t  2  2  4 MENU 0 ; ( change tags               modify/properties/tags
  63. : KEY_u  4  3  8 MENU 0 ; ( Update anim. system       animate/control/refresh  
  64. : KEY_v  3  3  1 MENU 0 ; ( Create camera from View   view/camera/create
  65. : KEY_w  1  9  8 MENU     ( unthink and rethink )
  66.          1  9  6 MENU 0 ; ( Wireframe one level )
  67. : KEY_x  0  3  2 MENU 0 ; ( eXecute current macro     project/macros/execute current
  68. : KEY_y  0  3  4 MENU 0 ; ( repeat current macro      project/macros/repeat current
  69. : KEY_z  0  3  3 MENU 0 ; ( execute named macro       project/macros/execute named
  70.  
  71. ( SHIFT KEYS `A`...`Z` )
  72.  
  73. : KEY_A  1  9  3 MENU 0 ; ( boolean And with paint
  74. : KEY_B  1  9  0 MENU 0 ; ( Boolean or                create/boolean/or
  75. : KEY_C  2 12  8 MENU 0 ; ( surface to Curves
  76. : KEY_D  2 12  9 MENU 0 ; ( Distribute points         modify/freeform/distribute
  77. : KEY_E  2 12 11 MENU 0 ; ( Exchange u & v            modify/freeforn/exchange_u&v
  78. : KEY_F  0  7  0 MENU 0 ; ( open Framebuffer 
  79. : KEY_G  2 12 10 MENU 0 ; ( freeform assiGn 
  80. : KEY_H  4  5  0 MENU 0 ; ( edit anim. metHod         animate/edit
  81. : KEY_I  2  9  0 MENU 0 ; ( Inv. kinematics           modify/special/inv.kinem
  82. : KEY_J  2 12  2 MENU 0 ; ( Join freeforms            modify/freeform/concatenate 
  83. : KEY_K  1  4 10 MENU 0 ; ( create Knotpoint B-spl.   create/controls/B-Spline_Knot
  84. : KEY_L  5  0 15 MENU 0 ; ( Lasso selector 
  85. : KEY_M  0  3  0 MENU 0 ; ( record Macro on/off 
  86. : KEY_N  1  9  4 MENU 0 ; ( boolean and Not with paint
  87. : KEY_O  2 12  4 MENU 0 ; ( freeform Open/close 
  88. : KEY_P  2 12  0 MENU 0 ; ( freeform reParametrize
  89. : KEY_Q  0  7  1 MENU 0 ; ( Quit framebuffer          project/external screen/close
  90. : KEY_R  2 12  7 MENU 0 ; ( freeform Remap            modify/freeform/remap
  91. : KEY_S  2 12  3 MENU 0 ; ( freeform Swap directions
  92. : KEY_T  2 12  5 MENU 0 ; ( Type of freeform 
  93. : KEY_U  1  9  9 MENU 0 ; ( unthink all Wireframe 
  94. : KEY_V  2 12  6 MENU 0 ; ( freeform inVert 
  95. : KEY_W  1  9  9 MENU     ( unthink and rethink    
  96.          1  9  7 MENU 0 ; ( Wireframe in all sublevels 
  97. : KEY_X  2 12 13 MENU 0 ; ( Delete point/curve        modify/freeform/delete
  98. : KEY_Y  2 12 14 MENU 0 ; ( Insert point/curve        modify/freeform/insert
  99. : KEY_Z  2 12 15 MENU 0 ; ( Break point/curve         modify/freeform/break
  100.  
  101. : KEY_[ 4  3  2  MENU 0 ; ( go to beginning           animate/control/go_to_beginning
  102. : KEY_] 4  3  3  MENU 0 ; ( go to end                 animate/control/go_to_end
  103. : KEY_> 4  3  0  MENU 0 ; ( play forward              animate/control/play_forward
  104. : KEY_< 4  3  1  MENU 0 ; ( play backwards            animate/control/play_backwards
  105. : KEY_1 2  0  5  MENU 0 ; ( extend 1Dimensions        modify/linear/extend
  106. : KEY_2 2  0  2  MENU 0 ; ( size2D 2Dimensions        modify/linear/size2D
  107. : KEY_3 2  0  3  MENU 0 ; ( size3D 3Dimensions        modify/linear/size3D
  108. : KEY_& 1  9  1  MENU 0 ; ( boolean and               create/boolean/and
  109. : KEY_% 1  9  2  MENU 0 ; ( boolean and not           create/boolean/and_not
  110. : KEY_. 3  2  2  MENU 0 ; ( display Position          view/camera/display_pos
  111. : KEY_? 4  3  4  MENU 0 ; ( go to ?                   animate/control/go_to_?
  112.  
  113.  
  114. : KEY_F0~ ( F1 = project window to front, if not open it )
  115.     0 "View*" iWM_ACTIVATE WND_SENDMSG
  116.     NOT IF
  117.         iWT_VIEW "View" 0 0 502 512 WND_OPEN
  118.     ENDIF
  119.     0 ;
  120. : KEY_F1~
  121.     0 "Select*" iWM_ACTIVATE WND_SENDMSG
  122.     NOT IF
  123.         iWT_SELECT "Select" 502 10 138 107 WND_OPEN
  124.     ENDIF
  125.     0 ;
  126. : KEY_F2~
  127.     0 "Tool*" iWM_ACTIVATE WND_SENDMSG
  128.     NOT IF
  129.         iWT_TOOL "Tool" 502 117 138 139 WND_OPEN
  130.     ENDIF
  131.     0 ;
  132. : KEY_F3~
  133.     0 "Material*" iWM_ACTIVATE WND_SENDMSG
  134.     NOT IF
  135.         iWT_MATERIAL "Material" 0 11 640 200 WND_OPEN
  136.     ENDIF
  137.     0 ;
  138. : KEY_F4~
  139.     0 "Color*" iWM_ACTIVATE WND_SENDMSG
  140.     NOT IF
  141.         iWT_PALETTE "Color" 0 11 320 80 WND_OPEN
  142.     ENDIF
  143.     0 ;
  144. : KEY_F5~
  145.     0 "Screen*" iWM_ACTIVATE WND_SENDMSG
  146.     NOT IF
  147.         iWT_SCREEN "Screen" 0 11 300 85 WND_OPEN
  148.     ENDIF
  149.     0 ;
  150. : KEY_F6~
  151.     0 "Animation*" iWM_ACTIVATE WND_SENDMSG
  152.     NOT IF
  153.         iWT_ANIM "Animation" 0 11 640 115 WND_OPEN
  154.     ENDIF
  155.     0 ;
  156. : KEY_F7~
  157.     0 "Shell*" iWM_ACTIVATE WND_SENDMSG
  158.     NOT IF
  159.         iWT_SHELL "Shell" 0 312 640 200 WND_OPEN
  160.     ENDIF
  161.     0 ;
  162. : KEY_F8~
  163.     0 "Measure" iWM_ACTIVATE WND_SENDMSG
  164.     NOT IF
  165.         0  5  9 MENU
  166.     ENDIF
  167.     0 ;
  168. : KEY_F9~ 0  5 14 MENU 0 ; ( F10 = close active window )
  169.  
  170.  
  171. ( SHIFT FUNCTION KEYS `F1`...`F10` )
  172.  
  173. : KEY_F10~ ( SHIFT F1 = view view window close )
  174.     0 "View*" iWM_DIE WND_SENDMSG DROP 0 ;
  175. : KEY_F11~ ( SHIFT F2 = select window close )
  176.     0 "Select*" iWM_DIE WND_SENDMSG DROP 0 ;
  177. : KEY_F12~ ( SHIFT F3 = tool window close )
  178.     0 "Tool*" iWM_DIE WND_SENDMSG DROP 0 ;
  179. : KEY_F13~ ( SHIFT F4 = material window close )
  180.     0 "Material*" iWM_DIE WND_SENDMSG DROP 0 ;
  181. : KEY_F14~ ( SHIFT F5 = color window close )
  182.     0 "Color*" iWM_DIE WND_SENDMSG DROP 0 ;
  183. : KEY_F15~ ( SHIFT F6 = screen window close )
  184.     0 "Screen*" iWM_DIE WND_SENDMSG DROP 0 ;
  185. : KEY_F16~ ( SHIFT F7 = animation window close )
  186.     0 "Anim*" iWM_DIE WND_SENDMSG DROP 0 ;
  187. : KEY_F17~ ( SHIFT F8 = rpl shell window close )
  188.     0 "Shell*" iWM_DIE WND_SENDMSG DROP 0 ;
  189. : KEY_F18~ ( SHIFT F9 = measuring window close )
  190.     0 "Measuring*" iWM_DIE WND_SENDMSG DROP 0 ;
  191. : KEY_F19~ 0 6 3 MENU 0 ; ( SHIFT F10 = close active screen )
  192.  
  193.  
  194. ( CTRL KEYS: Codes 0...31, `^A`=1...`^Z`=26 )
  195.  
  196. : KEY_^a 3  7  3 MENU 0 ; ( CTRL A = delete All boxes )
  197. : KEY_^b 3  7  0 MENU 0 ; ( CTRL B = define Box )
  198. : KEY_^c 3  4  1 MENU 0 ; ( CTRL C = Create grid )
  199. : KEY_^d 3  4  4 MENU 0 ; ( CTRL D = Delete grid )
  200. : KEY_^e 3  7  2 MENU 0 ; ( CTRL E = dElete box = Erase )
  201. : KEY_^f 3  2  6 MENU 0 ; ( CTRL F = auto Focus )
  202. : KEY_^g 3  4  7 MENU 0 ; ( CTRL G = Grid snap on/off )
  203. : KEY_^h 3  5 11 MENU 0 ; ( CTRL H = render Hierarchy )
  204. : KEY_^i 3  0  3 MENU 0 ; ( CTRL I = separate Io on/off )
  205. : KEY_^j 2  7  0 MENU 0 ; ( CTRL J = Bend circular in 2D )
  206. : KEY_^k 2  8  4 MENU 0 ; ( CTRL K = Twist )
  207. : KEY_^l 1  3  1 MENU 0 ; ( CTRL L = Create Lightline )
  208. : KEY_^m 3  4  2 MENU 0 ; ( CTRL M = Modify grid )
  209. : KEY_^n 0  5 15 MENU 0 ; ( CTRL N = No gadgets )
  210. : KEY_^o 3  1  3 MENU 0 ; ( CTRL O = Object space to view )
  211. : KEY_^p 3  1  8 MENU 0 ; ( CTRL P = Reset Hot-Point )
  212. : KEY_^q 6  1  0 MENU 0 ; ( CTRL Q = General Settings )
  213. : KEY_^r 3  4  3 MENU 0 ; ( CTRL R = Reposition grid )
  214. : KEY_^s 3  4  0 MENU 0 ; ( CTRL S = Select grid )
  215. : KEY_^t 2  12 5 MENU 0 ; ( CTRL T = change objtype )
  216. : KEY_^u  6 10  2 MENU 0 ; ( CTRL U = clear Undobuffer )
  217. : KEY_^v  3  4  6 MENU 0 ; ( CTRL V = grid Visible on/off )
  218. : KEY_^w  3  7  4 MENU 0 ; ( CTRL W = shoW all boxes )
  219. : KEY_^x  3  2 11 MENU 0 ; ( CTRL X = define X axis )
  220. : KEY_^y  3  2 12 MENU 0 ; ( CTRL Y = define Y axis )
  221. : KEY_^z  3  2 10 MENU 0 ; ( CTRL Z = custom Zoom scale )
  222.  
  223. ( ALT KEYS `a`...`z` )
  224.  
  225. ( : KEY_A ; unused )
  226. : KEY_º  2  1  0 MENU 0 ; ( ALT B = cut = delete and Backup selected )
  227. : KEY_ç  2  1  1 MENU 0 ; ( ALT C = Copy selected )
  228. : KEY_ð  2  1  4 MENU 0 ; ( ALT D = Duplicate selected )
  229. : KEY_©  2  1  5 MENU 0 ; ( ALT E = swap = Exchange selected )
  230. ( : KEY_F ; unused, can`t be used! )
  231. ( : KEY_G ; unused, can`t be used! )
  232. ( : KEY_H ; unused, can`t be used! )
  233.  
  234. : KEY_¡  0  0  0 MENU 0 ; ( ALT I = Insert object )
  235.  
  236. ( : KEY_J ; unused, can`t be used! )
  237. ( : KEY_K ; unused, can`t be used! )
  238. ( : KEY_L ; unused )
  239. ( : KEY_M ; unused )
  240. ( : KEY_N ; unused, can`t be used! )
  241. : KEY_å  0  8  0 MENU 0 ; ( ALT Q = Quit programm )
  242. : KEY_®  0  0  2 MENU 0 ; ( ALT R = Replace object )
  243. : KEY_ß  0  0  1 MENU 0 ; ( ALT S = Save object )
  244. ( : KEY_T ; unused )
  245. ( : KEY_U ; unused )
  246. ( : KEY_V ; unused )
  247. ( : KEY_W ; unused )
  248. : KEY_×  2  1  3 MENU 0 ; ( ALT X = delete = eXterminate selected )
  249. ( : KEY_Y ; unused )
  250. ( : KEY_Z ; unused )
  251.  
  252.  
  253. ( END OF FILE )
  254.